home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / pascal / tpl60n19.zip / TESTPRGS.ZIP / FUN1_TP6.PAS < prev    next >
Pascal/Delphi Source File  |  1993-02-14  |  2KB  |  108 lines
  1. {$A+,B-,D+,E-,F-,I-,L-,N-,O-,R-,S-,V-}
  2. {$M 16384,0,655360}
  3.  
  4. UNIT Fun1_TP6;
  5.  
  6. INTERFACE
  7.  
  8. TYPE RealMathFun = FUNCTION (X: REAL): REAL;
  9.  
  10. FUNCTION Add_TP60  (X, Y: REAL): REAL;
  11. FUNCTION Sub_TP60  (X, Y: REAL): REAL;
  12. FUNCTION Mul_TP60  (X, Y: REAL): REAL;
  13. FUNCTION Div_TP60  (X, Y: REAL): REAL;
  14. FUNCTION Sqr_TP60  (X: REAL): REAL;
  15. FUNCTION Int_TP60  (X: REAL): REAL;
  16. FUNCTION Frac_TP60 (X: REAL): REAL;
  17. FUNCTION Trunc_TP60(X: REAL): LONGINT;
  18. FUNCTION Round_TP60(X: REAL): LONGINT;
  19. FUNCTION Float_TP60(I: LONGINT): REAL;
  20.  
  21.  
  22. FUNCTION SW_Arctan (X: REAL): REAL;
  23. FUNCTION SW_Sin    (X: REAL): REAL;
  24. FUNCTION SW_Cos    (X: REAL): REAL;
  25. FUNCTION SW_Exp    (X: REAL): REAL;
  26. FUNCTION SW_Ln     (X: REAL): REAL;
  27.  
  28.  
  29. IMPLEMENTATION
  30.  
  31. FUNCTION Add_TP60 (X, Y: REAL): REAL;
  32. BEGIN
  33.    Add_TP60 := X + Y;
  34. END;
  35.  
  36. FUNCTION Sub_TP60 (X, Y: REAL): REAL;
  37. BEGIN
  38.    Sub_TP60 := X - Y;
  39. END;
  40.  
  41. FUNCTION Mul_TP60 (X, Y: REAL): REAL;
  42. BEGIN
  43.    Mul_TP60 := X * Y;
  44. END;
  45.  
  46. FUNCTION Div_TP60 (X, Y: REAL): REAL;
  47. BEGIN
  48.    Div_TP60 := X / Y;
  49. END;
  50.  
  51. FUNCTION Sqr_TP60 (X: REAL): REAL;
  52. BEGIN
  53.    Sqr_TP60 := Sqr (X);
  54. END;
  55.  
  56. FUNCTION Int_TP60 (X: REAL): REAL;
  57. BEGIN
  58.    Int_TP60 := Int (X);
  59. END;
  60.  
  61. FUNCTION Frac_TP60 (X: REAL): REAL;
  62. BEGIN
  63.    Frac_TP60 := Frac (X);
  64. END;
  65.  
  66. FUNCTION Trunc_TP60 (X:REAL): LONGINT;
  67. BEGIN
  68.    Trunc_TP60 := Trunc (X);
  69. END;
  70.  
  71. FUNCTION Round_TP60 (X:REAL): LONGINT;
  72. BEGIN
  73.    Round_TP60 := Round (X);
  74. END;
  75.  
  76. FUNCTION Float_TP60 (I: LONGINT): REAL;
  77. BEGIN
  78.    Float_TP60 := I;
  79. END;
  80.  
  81.  
  82. FUNCTION SW_Arctan (X: REAL): REAL;
  83. BEGIN
  84.    SW_Arctan := Arctan (X);
  85. END;
  86.  
  87. FUNCTION SW_Sin    (X: REAL): REAL;
  88. BEGIN
  89.    SW_Sin := Sin (X);
  90. END;
  91.  
  92. FUNCTION SW_Cos    (X: REAL): REAL;
  93. BEGIN
  94.    SW_Cos := Cos (X);
  95. END;
  96.  
  97. FUNCTION SW_Exp    (X: REAL): REAL;
  98. BEGIN
  99.    SW_Exp := Exp (X);
  100. END;
  101.  
  102. FUNCTION SW_Ln     (X: REAL): REAL;
  103. BEGIN
  104.    SW_Ln := Ln (X);
  105. END;
  106.  
  107. END. { Fun1_TP6 }
  108.